home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -serious- / programming / e / powerd / source / examples / dir.d < prev    next >
Text File  |  2000-01-27  |  578b  |  24 lines
  1. OPT    DOSARGONLY
  2.  
  3. MODULE    'dos/dos'
  4.  
  5. PROC main()
  6.     DEF    info:FileInfoBlock,lock,c=0
  7.     IF lock:=Lock(arg,-2)
  8.         IF Examine(lock,info)
  9.             IF info.DirEntryType>0
  10.                 PrintF('Directory of: \s\n',info.FileName)
  11.                 WHILE ExNext(lock,info)
  12.                     PrintF(IF info.DirEntryType>0 THEN ' \e[32m\l\s[27] Drawer\e[0m' ELSE ' \l\s[26] \r\d[7]',info.FileName,info.Size)
  13.                     IF ++c=2
  14.                         c:=0
  15.                         PrintF('\n')
  16.                     ELSE PrintF(' ')
  17.                 ENDWHILE
  18.                 IF c THEN PrintF('\n')
  19.             ELSE PrintFault(IOErr(),'ddir')
  20.         ELSE PrintFault(IOErr(),'ddir')
  21.         UnLock(lock)
  22.     ELSE PrintFault(IOErr(),'ddir')
  23. ENDPROC
  24.